~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~
                    
                    
          PURCHASE ORDER           
                    
                     
[issued by]
[important]
~PAD(M_name,35)~ 
Our purchase order number must      
~PAD(M_adr1,35)~ 
appear on all invoices, cases,      
~PAD(M_adr2,35)~ 
packing lists and correspondence.   
~PAD(M_adr3,35)~ 
                                    
[contact]
[telephone]
[order no.]
[issue date]
~po->contact~ 
 ~PAD(M_phone,14)~ 
 ~padl(ltrim(str(po->(RECNO()))),7,"0")~         
  ~pad(dtoc(po->issued),10)~      
[customer no.]
[cust. acct. no.]
           [issued to]            
~supplier->cust_no~
~supplier->acct_no~
~pad(aSup1,35)~ 
 ~pad(aSup2,35)~
 ~aSup3~
~pad(aSup4,35)~ 
                                  
[weight]
[required]
[f.o.b.   ]
~po->weight~
~pad(dtoc(po->required),10)~ 
~fob->fob_terms~  
[TERMS  ]
[         ]
[supply cd]
[ship via]
~pad(cTerms(po->term_dscnt,po->term_days,po->net),11)~  
           
~po->supply_cd~    
~po->ship_via~                      
Please supply the articles and/or services listed below.
comments-> ~po->comments~
item no./description
 qty         
 price         
 extended      
 ~po2->item~  ~inv->part_no~~po2->qty~ ~inv->unit~  ~po2->cost~ ~str(po2->cost*po2->qty,15,2)~
~-~       ~trim(inv->manufact)~
       ~Printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
                                                           
[sub-total]
                                                           
~str(subtotal,15,2)~
                                                           
~padc(upper(trim(M_NAME)),80)~
page ~ltrim(str(page,4))~                                                  [order no.-> ~po-> (recno())~]
                               (continuation)
item no./description
 qty         
 price         
 extended      
                                                      taxable   ~po->taxable~
                                                  non-taxable   ~po->non_taxabl~
                                                 ~if(empty(po->tax1_rate),"","("+str(po->tax1_rate)+"%) tax   "+str(po->tax1,13,2))~
                                                 ~if(empty(po->tax2_rate),"","("+str(po->tax2_rate)+"%) tax   "+str(po->tax2,13,2))~
                                                     shipping   ~po->freight~
[signature]
[date]
[total est. cost]
                            
             
               
    ~po->total~
~Printcode("COMP")~Certified that an unencumbered balance is available to meet this commitment.~Printcode("pitch10")~
~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~
                    +===================================+
                    |          PURCHASE ORDER           |
                    +===================================+
+------------[issued by]-------------+  +------------[important]-------------+
|~PAD(M_name,35)~ |  |Our purchase order number must      |
|~PAD(M_adr1,35)~ |  |appear on all invoices, cases,      |
|~PAD(M_adr2,35)~ |  |packing lists and correspondence.   |
|~PAD(M_adr3,35)~ |  |                                    |
+----[contact]------+--[telephone]---+  +--[order no.]----+--[issue date]----+
|~po->contact~ | ~PAD(M_phone,14)~ |  | ~padl(ltrim(str(po->(RECNO()))),7,"0")~         |  ~pad(dtoc(po->issued),10)~      |
+-------------------+----------------+  +[customer no.]---+[cust. acct. no.]-+
+-           [issued to]            -+	|~supplier->cust_no~|~supplier->acct_no~|
|~pad(aSup1,35)~ |  +-----------------+------------------+
 ~pad(aSup2,35)~
 ~aSup3~
|~pad(aSup4,35)~ |
+-                                  -+
+[weight]-----+[required]-+[f.o.b.   ]---------------------------------------+
|~po->weight~|~pad(dtoc(po->required),10)~ |~fob->fob_terms~  |
+[TERMS  ]----+[         ]+[supply cd]+[ship via]----------------------------+
|~pad(cTerms(po->term_dscnt,po->term_days,po->net),11)~  |           |~po->supply_cd~    |~po->ship_via~                      |
+-------------+-----------+-----------+--------------------------------------+
Please supply the articles and/or services listed below.
comments-> ~po->comments~
+----+--------------------+-------------+----+---------------+---------------+
|item|item no./description| qty         |unit| price         | extended      |
+----+--------------------+-------------+----+---------------+---------------+
 ~po2->item~  ~inv->part_no~~po2->qty~ ~inv->unit~  ~po2->cost~ ~str(po2->cost*po2->qty,15,2)~
~-~       ~trim(inv->manufact)~
       ~Printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
                                                           
+---[sub-total]---+
                                                           |  
~str(subtotal,15,2)~|
                                                           
+-----------------+
~padc(upper(trim(M_NAME)),80)~
page ~ltrim(str(page,4))~                                                  [order no.-> ~po-> (recno())~]
                               (continuation)
+----+--------------------+-------------+----+---------------+---------------+
|item|item no./description| qty         |unit| price         | extended      |
+----+--------------------+-------------+----+---------------+---------------+
                                                      taxable   ~po->taxable~
                                                  non-taxable   ~po->non_taxabl~
                                                 ~if(empty(po->tax1_rate),"","("+str(po->tax1_rate)+"%) tax   "+str(po->tax1,13,2))~
                                                 ~if(empty(po->tax2_rate),"","("+str(po->tax2_rate)+"%) tax   "+str(po->tax2,13,2))~
                                                     shipping   ~po->freight~
+-------[signature]----------+---[date]----+---------------+[total est. cost]+
|                            |             |               |    ~po->total~|
+----------------------------+-------------+---------------+-----------------+ 
~Printcode("COMP")~Certified that an unencumbered balance is available to meet this commitment.~Printcode("pitch10")~
~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~                                I N V O I C E
             
             
~padc(upper(m_name),48)~ 
             
 ~padc(trim(M_adr1)+" "+trim(M_adr2)+" "+trim(M_adr3),78)~
              ~padc(M_phone,48)~
[sold to]
[ship to]
~PAD(customer->name,35)~ 
~PAD(aShip2[1],35)~ 
~PAD(customer->company,35)~ 
~PAD(aShip2[2],35)~ 
~PAD(customer->address,35)~ 
~PAD(aShip2[3],35)~ 
~PAD(trim(customer->city)+", "+customer->state+"  "+trim(customer->zip),35)~ 
~PAD(aShip2[4],35)~ 
[customer id]
[telephone]
[         ]
[          ]
    ~padl(pos->cust_id,9,"0")~      
~customer->home_phone~    
                 
                  
[INVOICE]
[date]
[trx type]
[sales rep]
 ~pos->(recno())~   
~pad(dtoc(pos->date),10)~ 
~pos->trx_type~      
~pos->sales_rep~ ~sale_rep->name~ 
[ship date]
[weight]
[ship via]
[terms]
~pad(dtoc(pos->ship_date),10)~ 
~pos->weight~ 
~pos->ship_via~
~Pad(posterms(),35)~
[cust PO]
[f.o.b.]
~pos->cust_po_no~   
~fob->fob_terms~    
item no./description 
quantity      
unit cost    
extended       
~pos_item->item~   ~inv->part_no~ ~pos_item->order_qty~ ~inv->unit~ ~pos_item->price~ ~str(pos_item->order_qty*pos_item->price,15,2)~
~-~      ~trim(inv->manufact)~
      ~printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
                  * * * continued on page ~str(page+1,4)~ * * *
~padc(upper(trim(M_NAME)),80)~
page ~ltrim(str(page,4))~                                                [invoice no.-> ~pos-> (recno())~]
                               (continuation)
item no./description 
quantity      
unit cost    
extended       
[payment]
[charges]
~pad(aPaid[1],42)~
        taxable
      ~pos->taxable~
~pad(aPaid[2],42)~
    non-taxable
      ~pos->non_taxabl~
~pad(aPaid[3],42)~
~if(empty(pos->tax1_rate),space(12)+"
"+space(17),"("+str(pos->tax
1_rate,5,2)+"%) tax
   "+str(tax1(),14,2))~
~pad(aPaid[4],42)~
~if(empty(pos->tax2_rate),space(12)+"
"+space(17),"("+str(pos->tax
2_rate,5,2)+"%) tax
   "+str(tax2(),14,2))~
~pad(aPaid[5],42)~
       shipping
      ~pos->freight~
~pad(aPaid[6],42)~
      T O T A L
  ~str(postotal(),15,2)~
[amount tendered]
[change due]
[PAYMENT DUE]
[B A 
L A N C E]
~str(amt_tender(),15,2)~   
~str(change(),11,2)~            
~pad(if(empty(balance()),"N/A",pos->net_due),10)~     
~str(balance(),15,2)~
~if(empty(balance()),"","Please pay from this Invoice:  No 
statement will be issued.")~
~if(!empty(pos->savings)," Y O U R  S A V I N G S -> 
$"+STR(POS->SAVINGS)+IF(!EMPTY(posTOTAL()),str((1-(postotal()-tax1
()-tax2())/(pos->savings+postotal()-tax1()-tax2()))*100,6,2)+"%","
")," T H A N K  Y O U  F O R  Y O U R  O R D E R !")~
~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~                                I N V O I C E
             +=================================================+
             |~padc(upper(m_name),48)~ |
             +=================================================+
 ~padc(trim(M_adr1)+" "+trim(M_adr2)+" "+trim(M_adr3),78)~
              ~padc(M_phone,48)~
+------------[sold to]---------------+  +------------[ship to]---------------+
|~PAD(customer->name,35)~ |  |~PAD(aShip2[1],35)~ |
|~PAD(customer->company,35)~ |  |~PAD(aShip2[2],35)~ |
|~PAD(customer->address,35)~ |  |~PAD(aShip2[3],35)~ |
|~PAD(trim(customer->city)+", "+customer->state+"  "+trim(customer->zip),35)~ |  |~PAD(aShip2[4],35)~ |
+--[customer id]----+--[telephone]---+  +--[         ]----+--[          ]----+
|    ~padl(pos->cust_id,9,"0")~      |~customer->home_phone~    |  |                 |                  |
+-------------------+----------------+  +-----------------+------------------+
+[INVOICE]--+[date]-----+[trx type]+[sales rep]------------------------------+
| ~pos->(recno())~   |~pad(dtoc(pos->date),10)~ |~pos->trx_type~      |~pos->sales_rep~ ~sale_rep->name~ |
+[ship date]+[weight]---+[ship via]+-----+-----[terms]-----------------------+
|~pad(dtoc(pos->ship_date),10)~ |~pos->weight~ |~pos->ship_via~|~Pad(posterms(),35)~|
+[cust PO]--+-----------+[f.o.b.]--------+-----------------------------------+
|~pos->cust_po_no~   |~fob->fob_terms~    |
+-----------------------+----------------------------------------------------+
+----+---------------------+--------------+----+-------------+---------------+
|item|item no./description |quantity      |unit|unit cost    |extended       |
+----+---------------------+--------------+----+-------------+---------------+
~pos_item->item~   ~inv->part_no~ ~pos_item->order_qty~ ~inv->unit~ ~pos_item->price~ ~str(pos_item->order_qty*pos_item->price,15,2)~
~-~      ~trim(inv->manufact)~
      ~printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
                  * * * continued on page ~str(page+1,4)~ * * *
~padc(upper(trim(M_NAME)),80)~
page ~ltrim(str(page,4))~                                                [invoice no.-> ~pos-> (recno())~]
                               (continuation)
+----+---------------------+--------------+----+-------------+---------------+
|item|item no./description |quantity      |unit|unit cost    |extended       |
+----+---------------------+--------------+----+-------------+---------------+
+[payment]---------------------------------+[charges]------+------
-----------+
|~pad(aPaid[1],42)~|        taxable|      ~pos->taxable~|
|~pad(aPaid[2],42)~|    non-taxable|      ~pos->non_taxabl~| 
|~pad(aPaid[3],42)~|   
~if(empty(pos->tax1_rate),space(12)+"|"+space(17),"("+str(pos->tax
1_rate,5,2)+"%) tax|   "+str(tax1(),14,2))~|
|~pad(aPaid[4],42)~|   
~if(empty(pos->tax2_rate),space(12)+"|"+space(17),"("+str(pos->tax
2_rate,5,2)+"%) tax|   "+str(tax2(),14,2))~|
|~pad(aPaid[5],42)~|       shipping|      ~pos->freight~|
|~pad(aPaid[6],42)~|      T O T A L|  ~str(postotal(),15,2)~|
+[amount tendered]-+[change due]-----------+[PAYMENT DUE]--+[B A 
L A N C E]--+
|~str(amt_tender(),15,2)~   |~str(change(),11,2)~            
|~pad(if(empty(balance()),"N/A",pos->net_due),10)~     |  
~str(balance(),15,2)~|
+------------------+-----------------------+---------------+------
-----------+ 
~if(empty(balance()),"","Please pay from this Invoice:  No 
statement will be issued.")~
~if(!empty(pos->savings)," Y O U R  S A V I N G S -> 
$"+STR(POS->SAVINGS)+IF(!EMPTY(posTOTAL()),str((1-(postotal()-tax1
()-tax2())/(pos->savings+postotal()-tax1()-tax2()))*100,6,2)+"%","
")," T H A N K  Y O U  F O R  Y O U R  O R D E R !")~
~printcode("INIT")~~printcode("landscape")~~PRINTCODE("LINES6")~~PRINTCODE("PITCH10")~
~aShip2[1]~
~aship2[2]~
~aship2[3]~
~aship2[4]~
~printcode("init")~~printcode("landscape")~~printcode("lines6")~~printcode("pitch10")~
~-~~customer->name~
~-~~customer->company~
~-~~customer->address~
~-~~trim(customer->city)+", "+customer->state+"  "+customer->zip~
~-~~upper(customer->country)~
~printcode("portrait")~
~Printcode("INIT")~~printcode("pitch10")~~printcode("lines6")~                                  Q U O T E
             
             
~padc(upper(m_name),48)~ 
             
 ~padc(trim(M_adr1)+" "+trim(M_adr2)+" "+trim(M_adr3),78)~
              ~padc(M_phone,48)~
[sold to]
[ship to]
~PAD(customer->name,35)~ 
~PAD(aShip2[1],35)~ 
~PAD(customer->company,35)~ 
~PAD(aShip2[2],35)~ 
~PAD(customer->address,35)~ 
~PAD(aShip2[3],35)~ 
~PAD(trim(customer->city)+", "+customer->state+"  "+trim(customer->zip),35)~ 
~PAD(aShip2[4],35)~ 
[customer id]
[telephone]
[         ]
[          ]
    ~padl(quote->cust_id,9,"0")~      
~customer->home_phone~    
                 
                  
[QUOTE #]
[date]
[        ]
[sales rep]
 ~Quote->(recno())~   
~pad(dtoc(Quote->date),10)~ 
          
~quote->sales_rep~ ~sale_rep->name~ 
[         ]
[weight]
[ship via]
[terms]
           
~quote->weight~ 
~quote->ship_via~
~Pad(qterms(),35)~
[cust PO]
[f.o.b.]
~quote->cust_po_no~   
~fob->fob_terms~    
item no./description 
quantity        
price          
extended        
  ~inv->part_no~  ~quote2->order_qty~ ~inv->unit~   ~quote2->price~ ~str(quote2->order_qty*quote2->price,16,2)~
~-~      ~trim(inv->manufact)~
      ~printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
                  * * * continued on page ~str(page+1,4)~ * * *
~padc(upper(trim(M_NAME)),80)~
page ~ltrim(str(page,4))~                                                [QUOTE no.-> ~quote-> (recno())~]
                               (continuation)
item no./description 
quantity        
price          
extended        
[       
[charges]
                                          
        taxable
      
~quote->taxable~
                                          
    non-taxable
      
~quote->non_taxabl~
                                          
~if(empty(quote->tax1_rate),space(12)+"
"+space(17),"("+str(quote-
>tax1_rate,5,2)+"%) tax
   "+str(qtax1(),14,2))~
                                          
~if(empty(quote->tax2_rate),space(12)+"
"+space(17),"("+str(quote-
>tax2_rate,5,2)+"%) tax
   "+str(qtax2(),14,2))~
                                          
       shipping
      
~quote->freight~
                                          
      T O T A L
~str(qtotal(),15,2)~
~if(!empty(quote->savings)," Y O U R  S A V I N G S -> 
$"+STR(quote->SAVINGS)+IF(!EMPTY(qtotal()),str((1-(qtotal()-qtax1(
)-qtax2())/(quote->savings+qtotal()-qtax1()-qtax2()))*100,6,2)+"%"
,"")," T H A N K  Y O U  F O R  Y O U R  B U S I N E S S !")~
~Printcode("INIT")~~printcode("pitch10")~~printcode("lines6")~                                  Q U O T E
             +=================================================+
             |~padc(upper(m_name),48)~ |
             +=================================================+
 ~padc(trim(M_adr1)+" "+trim(M_adr2)+" "+trim(M_adr3),78)~
              ~padc(M_phone,48)~
+------------[sold to]---------------+  +------------[ship to]---------------+
|~PAD(customer->name,35)~ |  |~PAD(aShip2[1],35)~ |
|~PAD(customer->company,35)~ |  |~PAD(aShip2[2],35)~ |
|~PAD(customer->address,35)~ |  |~PAD(aShip2[3],35)~ |
|~PAD(trim(customer->city)+", "+customer->state+"  "+trim(customer->zip),35)~ |  |~PAD(aShip2[4],35)~ |
+--[customer id]----+--[telephone]---+  +--[         ]----+--[          ]----+
|    ~padl(quote->cust_id,9,"0")~      |~customer->home_phone~    |  |                 |                  |
+-------------------+----------------+  +-----------------+------------------+
+[QUOTE #]--+[date]-----+[        ]+[sales rep]------------------------------+
| ~Quote->(recno())~   |~pad(dtoc(Quote->date),10)~ |          |~quote->sales_rep~ ~sale_rep->name~ |
+[         ]+[weight]---+[ship via]+-----+-----[terms]-----------------------+
|           |~quote->weight~ |~quote->ship_via~|~Pad(qterms(),35)~|
+[cust PO]--+-----------+[f.o.b.]--------+-----------------------------------+
|~quote->cust_po_no~   |~fob->fob_terms~    |
+-----------------------+----------------------------------------------------+
+---------------------+----------------+----+---------------+----------------+
|item no./description |quantity        |unit|price          |extended        |
+---------------------+----------------+----+---------------+----------------+
  ~inv->part_no~  ~quote2->order_qty~ ~inv->unit~   ~quote2->price~ ~str(quote2->order_qty*quote2->price,16,2)~
~-~      ~trim(inv->manufact)~
      ~printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
                  * * * continued on page ~str(page+1,4)~ * * *
~padc(upper(trim(M_NAME)),80)~
page ~ltrim(str(page,4))~                                                [QUOTE no.-> ~quote-> (recno())~]
                               (continuation)
+---------------------+----------------+----+---------------+----------------+
|item no./description |quantity        |unit|price          |extended        |
+---------------------+----------------+----+---------------+----------------+
+[       
]---------------------------------+[charges]------+---------------
|                                          |        taxable|      
~quote->taxable~|
|                                          |    non-taxable|      
~quote->non_taxabl~| 
|                                          |   
~if(empty(quote->tax1_rate),space(12)+"|"+space(17),"("+str(quote-
>tax1_rate,5,2)+"%) tax|   "+str(qtax1(),14,2))~|
|                                          |   
~if(empty(quote->tax2_rate),space(12)+"|"+space(17),"("+str(quote-
>tax2_rate,5,2)+"%) tax|   "+str(qtax2(),14,2))~|
|                                          |       shipping|      
~quote->freight~|
|                                          |      T O T A L|  
~str(qtotal(),15,2)~|
+------------------------------------------+---------------+------
-----------+ 
~if(!empty(quote->savings)," Y O U R  S A V I N G S -> 
$"+STR(quote->SAVINGS)+IF(!EMPTY(qtotal()),str((1-(qtotal()-qtax1(
)-qtax2())/(quote->savings+qtotal()-qtax1()-qtax2()))*100,6,2)+"%"
,"")," T H A N K  Y O U  F O R  Y O U R  B U S I N E S S !")~
~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~
                    
                    
        REQUEST FOR QUOTE          
                    
                     
[issued by]
[important]
~PAD(M_name,35)~ 
Our Quote number must               
~PAD(M_adr1,35)~ 
appear on all correspondence.       
~PAD(M_adr2,35)~ 
                                    
~PAD(M_adr3,35)~ 
                                    
[contact]
[telephone]
[quote no.]
[issue date]
~po->contact~ 
 ~PAD(M_phone,14)~ 
    ~padl(ltrim(str(po->(RECNO()))),7,"0")~      
  ~pad(date(),10)~      
           [issued to]            
~pad(aSup1,35)~ 
 ~aSup2~
 ~aSup3~
~pad(aSup4,35)~ 
                                  
[weight]
[required]
[f.o.b.   ]
~po->weight~
~pad(po->required,10)~ 
~fob->fob_terms~  
[TERMS  ]
[EXP DATE ]
[supply cd]
[ship via]
             
           
~rfq->supply_cd~    
~po->ship_via~                      
~Printcode("COMP")~Please quote the articles and/or services listed below.  Include freight, taxes and other charges.~Printcode("NOCOMP")~
comments-> ~po->comments~
item no./description
 qty         
 price         
 extended      
 ~po2->item~  ~if(empty(supply2->part_no),inv->part_no,supply2->part_no)~~po2->qty~ ~inv->unit~
~-~       ~trim(inv->manufact)~
       ~Printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
~padc(upper(trim(M_NAME)),80)~
page ~ltrim(str(page,4))~                                         
         [quote no.-> ~po-> (recno())~]
                               (continuation)
item no./description
 qty         
 price         
extended      
                                                    taxable
                                                non-taxable
                                              (      %) tax
                                              (      %) tax   
                                                   shipping   
[signature]
[date]
[est. 
delivery]
[total est. cost]
                            
             
               
      
           
~Printcode("INIT")~
                    +===================================+
                    |        REQUEST FOR QUOTE          |
                    +===================================+
+------------[issued by]-------------+  +------------[important]-------------+
|~PAD(M_name,35)~ |  |Our Quote number must               |
|~PAD(M_adr1,35)~ |  |appear on all correspondence.       |
|~PAD(M_adr2,35)~ |  |                                    |
|~PAD(M_adr3,35)~ |  |                                    |
+----[contact]------+--[telephone]---+  +--[quote no.]----+--[issue date]----+
|~po->contact~ | ~PAD(M_phone,14)~ |  |    ~padl(ltrim(str(po->(RECNO()))),7,"0")~      |  ~pad(date(),10)~      |
+-------------------+----------------+  +-----------------+------------------+
+-           [issued to]            -+
|~pad(aSup1,35)~ |
 ~aSup2~
 ~aSup3~
|~pad(aSup4,35)~ |
+-                                  -+
+[weight]-----+[required]-+[f.o.b.   ]---------------------------------------+
|~po->weight~|~pad(po->required,10)~ |~fob->fob_terms~  |
+[TERMS  ]----+[EXP DATE ]+[supply cd]+[ship via]----------------------------+
|             |           |~rfq->supply_cd~    |~po->ship_via~                      |
+-------------+-----------+-----------+--------------------------------------+
~Printcode("COMP")~Please quote the articles and/or services listed below.  Include freight, taxes and other charges.~Printcode("NOCOMP")~
comments-> ~po->comments~
+----+--------------------+-------------+----+---------------+---------------+
|item|item no./description| qty         |unit| price         | extended      |
+----+--------------------+-------------+----+---------------+---------------+
 ~po2->item~  ~if(empty(supply2->part_no),inv->Part_no,supply2->part_no)~~po2->qty~ ~inv->unit~
~-~       ~trim(inv->manufact)~
       ~Printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
~padc(upper(trim(M_NAME)),80)~
page ~ltrim(str(page,4))~                                                  [quote no.-> ~po-> (recno())~]
                               (continuation)
+----+--------------------+-------------+----+---------------+---------------+
|item|item no./description| qty         |unit| price         | extended      |
+----+--------------------+-------------+----+---------------+---------------+
                                                    taxable
                                                non-taxable
                                              (      %) tax
                                              (      %) tax   
                                                   shipping   
+-------[signature]----------+---[date]----+[est. delivery]+[total est. cost]+
|                            |             |               |                 |
+----------------------------+-------------+---------------+-----------------+ 
~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~                           P A C K I N G  L I S T
             
             
~padc(upper(m_name),48)~ 
             
 ~padc(trim(M_adr1)+" "+trim(M_adr2)+" "+trim(M_adr3),78)~
              ~padc(M_phone,48)~
[sold to]
[ship to]
~PAD(customer->name,35)~ 
~PAD(aShip2[1],35)~ 
~PAD(customer->company,35)~ 
~PAD(aShip2[2],35)~ 
~PAD(customer->address,35)~ 
~PAD(aShip2[3],35)~ 
~PAD(trim(customer->city)+", "+customer->state+"  "+trim(customer->zip),35)~ 
~PAD(aShip2[4],35)~ 
[customer id]
[telephone]
[         ]
[          ]
    ~padl(pos->cust_id,9,"0")~      
~customer->home_phone~    
                 
                  
[INVOICE]
[date]
[trx type]
[sales rep]
 ~pos->(recno())~   
~pad(dtoc(pos->date),10)~ 
~pos->trx_type~      
~pos->sales_rep~ ~sale_rep->name~ 
[ship date]
[weight]
[ship via]
[terms]
~pad(dtoc(dFor),10)~ 
~pos->weight~ 
~pos->ship_via~
~Pad(posterms(),35)~
[cust PO]
[f.o.b.]
~pos->cust_po_no~   
~fob->fob_terms~    
item no./description 
ordered       
shipped       
backorder     
~pos_item->item~   ~inv->part_no~ 
~pos_item->order_qty~~ship->qty_shipd~ ~inv->unit~ 
~ship->back_order~
~-~      ~trim(inv->manufact)~
      ~printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
                  * * * continued on page ~str(page+1,4)~ * * *
~padc(upper(trim(M_NAME)),80)~
page ~ltrim(str(page,4))~                                                [invoice no.-> ~pos-> (recno())~]
                               (continuation)
item no./description 
ordered       
shipped       
backorder     
Thank You For Your Business!
~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~                           P A C K I N G  L I S T
             +=================================================+
             |~padc(upper(m_name),48)~ |
             +=================================================+
 ~padc(trim(M_adr1)+" "+trim(M_adr2)+" "+trim(M_adr3),78)~
              ~padc(M_phone,48)~
+------------[sold to]---------------+  +------------[ship to]---------------+
|~PAD(customer->name,35)~ |  |~PAD(aShip2[1],35)~ |
|~PAD(customer->company,35)~ |  |~PAD(aShip2[2],35)~ |
|~PAD(customer->address,35)~ |  |~PAD(aShip2[3],35)~ |
|~PAD(trim(customer->city)+", "+customer->state+"  "+trim(customer->zip),35)~ |  |~PAD(aShip2[4],35)~ |
+--[customer id]----+--[telephone]---+  +--[         ]----+--[          ]----+
|    ~padl(pos->cust_id,9,"0")~      |~customer->home_phone~    |  |                 |                  |
+-------------------+----------------+  +-----------------+------------------+
+[INVOICE]--+[date]-----+[trx type]+[sales rep]------------------------------+
| ~pos->(recno())~   |~pad(dtoc(pos->date),10)~ |~pos->trx_type~      |~pos->sales_rep~ ~sale_rep->name~ |
+[ship date]+[weight]---+[ship via]+-----+-----[terms]-----------------------+
|~pad(dtoc(dFor),10)~ |~pos->weight~ |~pos->ship_via~|~Pad(posterms(),35)~|
+[cust PO]--+-----------+[f.o.b.]--------+-----------------------------------+
|~pos->cust_po_no~   |~fob->fob_terms~    |
+-----------------------+----------------------------------------------------+
+----+---------------------+--------------+--------------+----+--------------+
|item|item no./description |ordered       |shipped       |unit|backorder     |
+----+---------------------+--------------+--------------+----+--------------+
~pos_item->item~   ~inv->part_no~ 
~pos_item->order_qty~~ship->qty_shipd~ ~inv->unit~ 
~ship->back_order~
~-~      ~trim(inv->manufact)~
      ~printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
                  * * * continued on page ~str(page+1,4)~ * * *
~padc(upper(trim(M_NAME)),80)~
page ~ltrim(str(page,4))~                                                [invoice no.-> ~pos-> (recno())~]
                               (continuation)
+----+---------------------+--------------+--------------+----+--------------+
|item|item no./description |ordered       |shipped       |unit|backorder     |
+----+---------------------+--------------+--------------+----+--------------+
Thank You For Your Business!
~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~
                    
                    
          PURCHASE ORDER           
                    
                     
[issued by]
[important]
~PAD(M_name,35)~ 
Our purchase order number must      
~PAD(M_adr1,35)~ 
appear on all invoices, cases,      
~PAD(M_adr2,35)~ 
packing lists and correspondence.   
~PAD(M_adr3,35)~ 
                                    
[contact]
[telephone]
[order no.]
[issue date]
~po->contact~ 
 ~PAD(M_phone,14)~ 
 ~padl(ltrim(str(po->(RECNO()))),7,"0")~         
  ~pad(dtoc(po->issued),10)~      
[customer no.]
[cust. acct. no.]
           [issued to]            
~supplier->cust_no~
~supplier->acct_no~
~pad(aSup1,35)~ 
 ~pad(aSup2,35)~
 ~aSup3~
~pad(aSup4,35)~ 
                                  
[weight]
[required]
[f.o.b.   ]
~po->weight~
~pad(dtoc(po->required),10)~ 
~fob->fob_terms~  
[TERMS  ]
[         ]
[supply cd]
[ship via]
~pad(cTerms(po->term_dscnt,po->term_days,po->net),11)~  
           
~po->supply_cd~    
~po->ship_via~                      
Please supply the articles and/or services listed below.
comments-> ~po->comments~
item no./description
 qty         
 price         
 extended      
 ~po2->item~  ~inv->part_no~~po2->qty~ ~inv->unit~  ~po2->cost~ ~str(po2->cost*po2->qty,15,2)~
~-~       ~trim(inv->manufact)~
       ~Printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
       ~schedule()~
                                                           
[sub-total]
                                                           
~str(subtotal,15,2)~
                                                           
~padc(upper(trim(M_NAME)),80)~
page ~ltrim(str(page,4))~                                                  [order no.-> ~po-> (recno())~]
                               (continuation)
item no./description
 qty         
 price         
 extended      
                                                      taxable   ~po->taxable~
                                                  non-taxable   ~po->non_taxabl~
                                                 ~if(empty(po->tax1_rate),"","("+str(po->tax1_rate)+"%) tax   "+str(po->tax1,13,2))~
                                                 ~if(empty(po->tax2_rate),"","("+str(po->tax2_rate)+"%) tax   "+str(po->tax2,13,2))~
                                                     shipping   ~po->freight~
[signature]
[date]
[total est. cost]
                            
             
               
    ~po->total~
~Printcode("COMP")~Certified that an unencumbered balance is available to meet this commitment.~Printcode("pitch10")~
~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~                                I N V O I C E
             
             
~padc(upper(m_name),48)~ 
             
 ~padc(trim(M_adr1)+" "+trim(M_adr2)+" "+trim(M_adr3),78)~
              ~padc(M_phone,48)~
[sold to]
[ship to]
~PAD(customer->name,35)~ 
~PAD(aShip2[1],35)~ 
~PAD(customer->company,35)~ 
~PAD(aShip2[2],35)~ 
~PAD(customer->address,35)~ 
~PAD(aShip2[3],35)~ 
~PAD(trim(customer->city)+", "+customer->state+"  "+trim(customer->zip),35)~ 
~PAD(aShip2[4],35)~ 
[customer id]
[telephone]
[         ]
[          ]
    ~padl(pos->cust_id,9,"0")~      
~customer->home_phone~    
                 
                  
[INVOICE]
[date]
[trx type]
[sales rep]
 ~pos->(recno())~   
~pad(dtoc(pos->date),10)~ 
~pos->trx_type~      
~pos->sales_rep~ ~sale_rep->name~ 
[ship date]
[weight]
[ship via]
[terms]
~pad(dtoc(pos->ship_date),10)~ 
~pos->weight~ 
~pos->ship_via~
~Pad(posterms(),35)~
[cust PO]
[f.o.b.]
~pos->cust_po_no~   
~fob->fob_terms~    
item no./description 
quantity      
unit cost    
extended       
~pos_item->item~   ~inv->part_no~ ~pos_item->order_qty~ ~inv->unit~ ~pos_item->price~ ~str(pos_item->order_qty*pos_item->price,15,2)~
~-~      ~trim(inv->manufact)~
      ~printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
      ~posSchedule(3)~
                  * * * continued on page ~str(page+1,4)~ * * *
~padc(upper(trim(M_NAME)),80)~
page ~ltrim(str(page,4))~                                                [invoice no.-> ~pos-> (recno())~]
                               (continuation)
item no./description 
quantity      
unit cost    
extended       
[payment]
[charges]
~pad(aPaid[1],42)~
        taxable
      ~pos->taxable~
~pad(aPaid[2],42)~
    non-taxable
      ~pos->non_taxabl~
~pad(aPaid[3],42)~
~if(empty(pos->tax1_rate),space(12)+"
"+space(17),"("+str(pos->tax
1_rate,5,2)+"%) tax
   "+str(tax1(),14,2))~
~pad(aPaid[4],42)~
~if(empty(pos->tax2_rate),space(12)+"
"+space(17),"("+str(pos->tax
2_rate,5,2)+"%) tax
   "+str(tax2(),14,2))~
~pad(aPaid[5],42)~
       shipping
      ~pos->freight~
~pad(aPaid[6],42)~
      T O T A L
  ~str(postotal(),15,2)~
[amount tendered]
[change due]
[PAYMENT DUE]
[B A 
L A N C E]
~str(amt_tender(),15,2)~   
~str(change(),11,2)~            
~pad(if(empty(balance()),"N/A",pos->net_due),10)~     
~str(balance(),15,2)~
~if(empty(balance()),"","Please pay from this Invoice:  No 
statement will be issued.")~
~if(!empty(pos->savings)," Y O U R  S A V I N G S -> 
$"+STR(POS->SAVINGS)+IF(!EMPTY(posTOTAL()),str((1-(postotal()-tax1
()-tax2())/(pos->savings+postotal()-tax1()-tax2()))*100,6,2)+"%","
")," T H A N K  Y O U  F O R  Y O U R  O R D E R !")~
~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~
                    
                    
          PURCHASE ORDER           
                    
                     
[issued by]
[important]
~PAD(M_name,35)~ 
Our purchase order number must      
~PAD(M_adr1,35)~ 
appear on all invoices, cases,      
~PAD(M_adr2,35)~ 
packing lists and correspondence.   
~PAD(M_adr3,35)~ 
                                    
[contact]
[telephone]
[order no.]
[issue date]
~po->contact~ 
 ~PAD(M_phone,14)~ 
 ~padl(ltrim(str(po->(RECNO()))),7,"0")~         
  ~pad(dtoc(po->issued),10)~      
[customer no.]
[cust. acct. no.]
           [issued to]            
~supplier->cust_no~
~supplier->acct_no~
~pad(aSup1,35)~ 
 ~pad(aSup2,35)~
 ~aSup3~
~pad(aSup4,35)~ 
                                  
[weight]
[required]
[f.o.b.   ]
~po->weight~
~pad(dtoc(po->required),10)~ 
~fob->fob_terms~  
[TERMS  ]
[         ]
[supply cd]
[ship via]
~pad(cTerms(po->term_dscnt,po->term_days,po->net),11)~  
           
~po->supply_cd~    
~po->ship_via~                      
Please supply the articles and/or services listed below.
comments-> ~po->comments~
item no./description
 qty         
 price         
 extended      
~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~
                    +===================================+
                    |          PURCHASE ORDER           |
                    +===================================+
+------------[issued by]-------------+  +------------[important]-------------+
|~PAD(M_name,35)~ |  |Our purchase order number must      |
|~PAD(M_adr1,35)~ |  |appear on all invoices, cases,      |
|~PAD(M_adr2,35)~ |  |packing lists and correspondence.   |
|~PAD(M_adr3,35)~ |  |                                    |
+----[contact]------+--[telephone]---+  +--[order no.]----+--[issue date]----+
|~po->contact~ | ~PAD(M_phone,14)~ |  | ~padl(ltrim(str(po->(RECNO()))),7,"0")~         |  ~pad(dtoc(po->issued),10)~      |
+-------------------+----------------+  +[customer no.]---+[cust. acct. no.]-+
+-           [issued to]            -+  |~supplier->cust_no~|~supplier->acct_no~|
|~pad(aSup1,35)~ |  +-----------------+------------------+
 ~pad(aSup2,35)~
 ~aSup3~
|~pad(aSup4,35)~ |
+-                                  -+
+[weight]-----+[required]-+[f.o.b.   ]---------------------------------------+
|~po->weight~|~pad(dtoc(po->required),10)~ |~fob->fob_terms~  |
+[TERMS  ]----+[         ]+[supply cd]+[ship via]----------------------------+
|~pad(cTerms(po->term_dscnt,po->term_days,po->net),11)~  |           |~po->supply_cd~    |~po->ship_via~                      |
+-------------+-----------+-----------+--------------------------------------+
Please supply the articles and/or services listed below.
comments-> ~po->comments~
+----+--------------------+-------------+----+---------------+---------------+
|item|item no./description| qty         |unit| price         | extended      |
+----+--------------------+-------------+----+---------------+---------------+